library(RODBC)

read.meminfo<-function(select)
{       
  fldata<-odbcConnect("10_88dw",uid="un_liangdong.wu",pwd="ldwu!234")
  meminfo<-sqlQuery(fldata,select)   
  close(fldata)
  return(meminfo)
}
